function plot_basis_function_1d(basis_type, flag)


N = reference_basis_function_1d(basis_type);

if nargin == 1
    Nb = size(N, 1);
else
    Nb = min(size(N, 1), flag);
end

x = -1:0.01:1;
for i = 1:Nb
    plot(x, N{i}(x));
    hold on;
end

end